#!/usr/bin/perl


use Date::Calc qw(Add_Delta_DHMS);
($year, $month, $day, $hh, $mm, $ss) = Add_Delta_DHMS(
    1973, 1, 1, $ARGV[0], $ARGV[1], $ARGV[2], # 1/Jan/1973, 3:45:50 am
             0, $ARGV[3], $ARGV[4], $ARGV[5]); # 2 hrs, 17 min, 5 sec

print "$hh:$mm:$ss\n";

